/*

*** This do file creates the replication results for 

Kyoto Protocol Cooperation: Does Government Corruption Facilitate Environmental Lobbying? (with Per G. Fredriksson and Gergely Ujhelyi), Public Choice, 133 (1-2), 2007, pp. 231-251

Eric Neumayer (LSE)																			

Please report any errors to e.neumayer@lse.ac.uk

*/

use "Article for Public Choice (environment).dta", replace

* Table 2
bys year: su gdppc pop fh co2pcext icrgfromper ticorruptaverageatmin wbcorriatmin industryemplimp fuelexportsie 
su icc nngo island annex1 ann1p if year==1998

* Table 3
stcox island pop gdppc fh, nohr strata(annex1) efron nolog robust
stcox island pop gdppc fh co2pcext ann1p, nohr strata(annex1) efron nolog robust


capture drop ngowbcorriatmin ngoicrgfromper ngoticorruptatmin ngoticorruptaverageatmin
gen ngowbcorriatmin=nngo*wbcorriatmin
gen ngoicrgfromper=nngo*icrgfromper
gen ngoticorruptatmin=nngo*ticorruptatmin
gen ngoticorruptaverageatmin=nngo*ticorruptaverageatmin

* corruption with interaction with nngo and industryemplimp
capture drop industryemplimpwbcorriatmin industryemplimpicrgfromper industryemplimpticorruptatmin industryemplimpticorruptave
gen industryemplimpwbcorriatmin=industryemplimp*wbcorriatmin
gen industryemplimpicrgfromper=industryemplimp*icrgfromper
gen industryemplimpticorruptatmin=industryemplimp*ticorruptatmin
gen industryemplimpticorruptave=industryemplimp*ticorruptaverageatmin

stcox island pop gdppc fh nngo industryemplimp  icrgfromper ngoicrgfromper industryemplimpicrgfromper, nohr strata(annex1) efron nolog robust
stcox island pop gdppc fh nngo industryemplimp  ticorruptaverageatmin ngoticorruptaverageatmin industryemplimpticorruptave, nohr strata(annex1) efron nolog robust
stcox island pop gdppc fh nngo industryemplimp  wbcorri ngowbcorri industryemplimpwbcorriatmin, nohr strata(annex1) efron nolog robust

* Table 4
* corruption with interaction with nngo and fuelexports continuous variable
capture drop fuelexportsiewbcorriatmin fuelexportsieicrgfromper fuelexportsieticorruptatmin fuelexportsieticorruptavatmin
gen fuelexportsiewbcorriatmin=fuelexportsie*wbcorriatmin
gen fuelexportsieicrgfromper=fuelexportsie*icrgfromper
gen fuelexportsieticorruptatmin=fuelexportsie*ticorruptatmin
gen fuelexportsieticorruptavatmin=fuelexportsie*ticorruptaverageatmin

stcox island pop gdppc fh nngo fuelexportsie  icrgfromper ngoicrgfromper fuelexportsieicrgfromper, nohr strata(annex1) efron nolog
stcox island pop gdppc fh nngo fuelexportsie  ticorruptaverageatmin ngoticorruptaverageatmin fuelexportsieticorruptavatmin, nohr strata(annex1) efron nolog
stcox island pop gdppc fh nngo fuelexportsie  wbcorri ngowbcorri fuelexportsiewbcorriatmin, nohr strata(annex1) efron nolog

* corruption with interaction with nngo and icc
capture drop iccwbcorriatmin iccicrgfromper iccticorruptatmin iccticorruptaverageatmin
gen iccwbcorriatmin=icc*wbcorriatmin
gen iccicrgfromper=icc*icrgfromper
gen iccticorruptatmin=icc*ticorruptatmin
gen iccticorruptaverageatmin=icc*ticorruptaverageatmin

stcox island pop gdppc fh nngo icc  icrgfromper ngoicrgfromper iccicrgfromper, nohr strata(annex1) efron nolog robust
stcox island pop gdppc fh nngo icc  ticorruptaverageatmin ngoticorruptaverageatmin iccticorruptaverageatmin, nohr strata(annex1) efron nolog robust
stcox island pop gdppc fh nngo icc  wbcorri ngowbcorri iccwbcorriatmin, nohr strata(annex1) efron nolog robust

* Table 5

streg island pop gdppc fh nngo industryemplimp  icrgfromper ngoicrgfromper industryemplimpicrgfromper, nohr dist(weibull) strata(annex1)  nolog robust
test nngo ngoicrgfromper
streg island pop gdppc fh nngo industryemplimp  ticorruptaverageatmin ngoticorruptaverageatmin industryemplimpticorruptave, nohr dist(weibull) strata(annex1)  nolog robust
test nngo ngoticorrupt
streg island pop gdppc fh nngo industryemplimp  wbcorri ngowbcorri industryemplimpwbcorriatmin, nohr dist(weibull) strata(annex1)  nolog robust
test nngo ngowbcorri

* corruption with interaction with nngo and fuelexports continuous variable
streg island pop gdppc fh nngo fuelexportsie  icrgfromper ngoicrgfromper fuelexportsieicrgfromper, nohr dist(weibull) strata(annex1)  nolog robust
test nngo ngoicrgfromper
streg island pop gdppc fh nngo fuelexportsie  ticorruptaverageatmin ngoticorruptaverageatmin fuelexportsieticorruptavatmin, nohr dist(weibull) strata(annex1)  nolog robust
test nngo ngoticorrupt
streg island pop gdppc fh nngo fuelexportsie  wbcorri ngowbcorri fuelexportsiewbcorriatmin, nohr dist(weibull) strata(annex1)  nolog robust
test nngo ngowbcorri

streg island pop gdppc fh nngo icc  icrgfromper ngoicrgfromper iccicrgfromper, nohr dist(weibull) strata(annex1)  nolog robust
test nngo ngoicrgfromper
streg island pop gdppc fh nngo icc  ticorruptaverageatmin ngoticorruptaverageatmin iccticorruptaverageatmin, nohr dist(weibull) strata(annex1)  nolog robust
test nngo ngoticorrupt
streg island pop gdppc fh nngo icc  wbcorri ngowbcorri iccwbcorriatmin, nohr dist(weibull) strata(annex1)  nolog robust
test nngo ngowbcorri

* Table 6
xi: logit ratified annex1  island pop gdppc fh nngo industryemplimp  icrgfromper ngoicrgfromper industryemplimpicrgfromper i.year, cluster(id)  nolog robust
test nngo ngoicrgfromper
xi: logit ratified annex1  island pop gdppc fh nngo industryemplimp  ticorruptaverageatmin ngoticorruptaverageatmin industryemplimpticorruptave i.year, cluster(id)  nolog robust
test nngo ngoticorrupt
xi: logit ratified annex1  island pop gdppc fh nngo industryemplimp  wbcorri ngowbcorri industryemplimpwbcorriatmin i.year, cluster(id)  nolog robust
test nngo ngowbcorri

* corruption with interaction with nngo and fuelexports continuous variable
xi: logit ratified annex1  island pop gdppc fh nngo fuelexportsie  icrgfromper ngoicrgfromper fuelexportsieicrgfromper i.year, cluster(id)  nolog robust
test nngo ngoicrgfromper
xi: logit ratified annex1  island pop gdppc fh nngo fuelexportsie  ticorruptaverageatmin ngoticorruptaverageatmin fuelexportsieticorruptavatmin i.year, cluster(id)  nolog robust
test nngo ngoticorrupt
xi: logit ratified annex1  island pop gdppc fh nngo fuelexportsie  wbcorri ngowbcorri fuelexportsiewbcorriatmin i.year, cluster(id)  nolog robust
test nngo ngowbcorri

xi: logit ratified annex1  island pop gdppc fh nngo icc  icrgfromper ngoicrgfromper iccicrgfromper i.year, cluster(id)  nolog robust
test nngo ngoicrgfromper
xi: logit ratified annex1  island pop gdppc fh nngo icc  ticorruptaverageatmin ngoticorruptaverageatmin iccticorruptaverageatmin i.year, cluster(id)  nolog robust
test nngo ngoticorrupt
xi: logit ratified annex1  island pop gdppc fh nngo icc  wbcorri ngowbcorri iccwbcorriatmin i.year, cluster(id)  nolog robust
test nngo ngowbcorri


* Robustness test: Table 6 with probit instead of logit
xi: probit ratified annex1  island pop gdppc fh nngo industryemplimp  icrgfromper ngoicrgfromper industryemplimpicrgfromper i.year, cluster(id)  nolog robust
test nngo ngoicrgfromper
xi: probit ratified annex1  island pop gdppc fh nngo industryemplimp  ticorruptaverageatmin ngoticorruptaverageatmin industryemplimpticorruptave i.year, cluster(id)  nolog robust
test nngo ngoticorrupt
xi: probit ratified annex1  island pop gdppc fh nngo industryemplimp  wbcorri ngowbcorri industryemplimpwbcorriatmin i.year, cluster(id)  nolog robust
test nngo ngowbcorri

* corruption with interaction with nngo and fuelexports continuous variable
xi: probit ratified annex1  island pop gdppc fh nngo fuelexportsie  icrgfromper ngoicrgfromper fuelexportsieicrgfromper i.year, cluster(id)  nolog robust
test nngo ngoicrgfromper
xi: probit ratified annex1  island pop gdppc fh nngo fuelexportsie  ticorruptaverageatmin ngoticorruptaverageatmin fuelexportsieticorruptavatmin i.year, cluster(id)  nolog robust
test nngo ngoticorrupt
xi: probit ratified annex1  island pop gdppc fh nngo fuelexportsie  wbcorri ngowbcorri fuelexportsiewbcorriatmin i.year, cluster(id)  nolog robust
test nngo ngowbcorri

xi: probit ratified annex1  island pop gdppc fh nngo icc  icrgfromper ngoicrgfromper iccicrgfromper i.year, cluster(id)  nolog robust
test nngo ngoicrgfromper
xi: probit ratified annex1  island pop gdppc fh nngo icc  ticorruptaverageatmin ngoticorruptaverageatmin iccticorruptaverageatmin i.year, cluster(id)  nolog robust
test nngo ngoticorrupt
xi: probit ratified annex1  island pop gdppc fh nngo icc  wbcorri ngowbcorri iccwbcorriatmin i.year, cluster(id)  nolog robust
test nngo ngowbcorri


